Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/tour.dxr/00492_Tool Box.ls

Text File | 2000-01-21 | 1.1 KB | 52 lines

on tellloc startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  end repeat
end

on tellrect startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  end repeat
end

on Jat p1, p2, p3, p4, p5, p6
  put p1, p2, p3, p4, p5, p6
end

on VideoPausedAtStart
  repeat with rc = 1 to the number of castMembers
    if member(rc).type = #digitalVideo then
      member(rc).pausedAtStart = 1
    end if
  end repeat
  beep(2)
end

on ListEntries
  xList = []
  repeat with rc = 1 to the number of castMembers
    if member(rc).type = #field then
      if member(rc).editable = 1 then
        append(xList, member(rc).name)
      end if
    end if
  end repeat
  Jat(xList)
  beep(2)
end